USGS: National Coal Resou…s & Great Plains Regions/USGS National Coal Resource Assessment 1999 - Northern Rocky Mountains & Great Plains Regions - Disc 2.iso/PROGRAM/Tools/tocdefs.avx

Text File | 1998-07-16 | 10.7 KB | 335 lines

/3.1
(Extension.1
    Name:    "Table of Contents Defaults Dialog"
    Dependencies:    "$AVBIN/avdlog.dll\n"
    FirstRootClassName:    "AVDLog"
    Roots:    2
    Roots:    38
    Roots:    39
    Roots:    40
    Roots:    41
    Version:    31
    About:    "Contains a dialog for setting the default properties for all view's TOCs"
    CanUnloadScript:    42
    UnloadScript:    43
    InstallScript:    44
    ExtVersion:    1
)

(AVDLog.2
    Name:    "TocDefs.Dialog"
    X:    29
    Y:    57
    W:    389
    H:    290
    HelpTopic:    "TOC_Defaults"
    ConstrainedControlNames:    3
    ConstrainedControlNames:    4
    Constraints:    5
    Constraints:    6
    Server:    7
    ControlPanel:    8
    Title:    "Table of Contents Style Settings"
    EscapeEnabled:    1
    AlwaysOnTop:    1
    HasTitleBar:    1
    Closeable:    1
    Open:    "TocDefs.Open"
    DefaultButton:    37
)

(AVStr.3
    S:    "Cancel"
)

(AVStr.4
    S:    "OK"
)

(Numb.5
    N:    85.00000000000000
)

(Numb.6
    N:    85.00000000000000
)

(Nil.7
)

(CPanel.8
    Child:    9
    Child:    10
    Child:    11
    Child:    13
    Child:    14
    Child:    15
    Child:    16
    Child:    18
    Child:    20
    Child:    22
    Child:    23
    Child:    24
    ResBox:    25
    ResBox:    26
    ResBox:    27
    ResBox:    28
    ResBox:    29
    ResBox:    30
    ResBox:    31
    ResBox:    32
    ResBox:    33
    ResBox:    34
    ResBox:    35
    ResBox:    36
    Listening:    1
)

(TextLabel.9
    InternalName:    "aTextLabel3"
    Constraints:    0x55
    Label:    "Line flatness:"
    Listening:    1
)

(TextLabel.10
    InternalName:    "aTextLabel4"
    Constraints:    0x55
    Label:    "Symbol length:"
    Listening:    1
)

(AVCBBox.11
    InternalName:    "Flats"
    Help:    "Choose how flat line symbols will be shown as in all view's TOCs"
    NextControl:    12
    ContentKind:    4
    Constraints:    0x55
    Listening:    1
)

(Nil.12
)

(AVCBBox.13
    InternalName:    "Lens"
    Help:    "Choose how long pen and fill symbols will be shown in all view's TOCs"
    NextControl:    12
    ContentKind:    4
    Constraints:    0x55
    Listening:    1
)

(LButn.14
    InternalName:    "Cancel"
    Label:    "Close"
    Click:    "TocDefs.Close"
)

(LButn.15
    InternalName:    "OK"
    Label:    "Apply"
    Click:    "TocDefs.Close"
)

(AVLBox.16
    InternalName:    "Fonts"
    Help:    "Choose the font to use for all view's TOCs"
    NextControl:    12
    ContentKind:    4
    Constraints:    0x55
    ColumnCount:    1
    Listening:    1
    VerticalScroll:    1
    Select:    "TocDefs.UpdateStyle"
    SelectionStyle:    17
)

(AVEnum.17
    Name:    "LISTBOX_SELECTION_SINGLECELL"
)

(AVLBox.18
    InternalName:    "Sizes"
    Help:    "Choose the point size of text to use for all view's TOCs"
    NextControl:    12
    ContentKind:    4
    Constraints:    0x55
    ColumnCount:    1
    Listening:    1
    VerticalScroll:    1
    SelectionStyle:    19
)

(AVEnum.19
    Name:    "LISTBOX_SELECTION_SINGLECELL"
)

(AVLBox.20
    InternalName:    "Styles"
    Help:    "Choose the style to apply to the font for all view's TOCs"
    NextControl:    12
    ContentKind:    4
    Constraints:    0x55
    ColumnCount:    1
    Listening:    1
    VerticalScroll:    1
    SelectionStyle:    21
)

(AVEnum.21
    Name:    "LISTBOX_SELECTION_SINGLECELL"
)

(TextLabel.22
    InternalName:    "aTextLabel14"
    Constraints:    0x55
    Label:    "Style:"
    Listening:    1
)

(TextLabel.23
    InternalName:    "aTextLabel15"
    Constraints:    0x55
    Label:    "Size (pts):"
    Listening:    1
)

(TextLabel.24
    InternalName:    "aTextLabel16"
    Constraints:    0x55
    Label:    "Font:"
    Listening:    1
)

(RectD.25
    Left:    15.00000000000000
    Top:    49.00000000000000
    Right:    142.00000000000000
    Bottom:    22.00000000000000
)

(RectD.26
    Left:    15.00000000000000
    Top:    80.00000000000000
    Right:    141.00000000000000
    Bottom:    53.00000000000000
)

(RectD.27
    Left:    141.00000000000000
    Top:    117.00000000000000
    Right:    285.00000000000000
    Bottom:    21.00000000000000
)

(RectD.28
    Left:    142.00000000000000
    Top:    149.00000000000000
    Right:    286.00000000000000
    Bottom:    53.00000000000000
)

(RectD.29
    Left:    298.00000000000000
    Top:    280.00000000000000
    Right:    380.00000000000000
    Bottom:    255.00000000000000
)

(RectD.30
    Left:    211.00000000000000
    Top:    280.00000000000000
    Right:    293.00000000000000
    Bottom:    255.00000000000000
)

(RectD.31
    Left:    15.00000000000000
    Top:    244.00000000000000
    Right:    164.00000000000000
    Bottom:    112.00000000000000
)

(RectD.32
    Left:    302.00000000000000
    Top:    244.00000000000000
    Right:    381.00000000000000
    Bottom:    112.00000000000000
)

(RectD.33
    Left:    179.00000000000000
    Top:    244.00000000000000
    Right:    288.00000000000000
    Bottom:    112.00000000000000
)

(RectD.34
    Left:    179.00000000000000
    Top:    115.00000000000000
    Right:    275.00000000000000
    Bottom:    87.00000000000000
)

(RectD.35
    Left:    302.00000000000000
    Top:    115.00000000000000
    Right:    398.00000000000000
    Bottom:    87.00000000000000
)

(RectD.36
    Left:    15.00000000000000
    Top:    115.00000000000000
    Right:    111.00000000000000
    Bottom:    87.00000000000000
)

(Nil.37
)

(Script.38
    Name:    "TocDefs.Close"
    SourceCode:    "ATD = av.FindDialog(\"TocDefs.Dialog\")\n\nif (Self.GetName = \"Cancel\") then\n  ATD.Close\nelseif (Self.GetName = \"OK\") then\n  theExt = Extension.Find(\"Table of Contents Defaults Dialog\")\n  thePrefs = theExt.GetPreferences\n  theTocDefs = thePrefs.Get(\"TocDefs\")\n  theFlat = ATD.FindByName(\"Flats\").GetSelection\n  theLen  = ATD.FindByName(\"Lens\").GetSelection\n  theFont = ATD.FindByName(\"Fonts\").GetSelection.Get(0)\n  theStyle = ATD.FindByName(\"Styles\").GetSelection.Get(0)\n  theSize = ATD.FindByName(\"Sizes\").GetSelect
ion.Get(0)\n  \n  theTxtSym = TextSymbol.Make\n  theTxtSym.SetColor(Color.GetBlack)\n  theTxtSym.SetFont(Font.Make(theFont,theStyle))\n  theTxtSym.SetSize(theSize)\n\n  if (theTocDefs = nil) then\n    thePrefs.Add(\"TocDefs\",{theFlat,theLen,theTxtSym})\n  else\n    thePrefs.Set(\"TocDefs\",{theFlat,theLen,theTxtSym}) \n  end\n  \n  ff = nil\n  if (theFlat = \"Flat\") then\n    ff = 100\n  elseif (theFlat = \"Moderate zigzag\") then\n    ff = 50\n  elseif (theFlat = \"Strong zigzag\") then\n    ff = 0\n  end\n  if (ff <> nil) then\n    av
.GetProject.SetLegendLineFlatness(ff)\n  end\n\n  ll = nil\n  if (theLen = \"Normal\") then\n    ll = 1\n  elseif (thelen = \"Short\") then\n    ll = 0.5\n  elseif (thelen = \"Long\") then\n    ll = 3\n  elseif (thelen = \"Very long\") then\n    ll = 5\n  end\n  if (ll <> nil) then\n    av.GetProject.SetTocWidthScale(ll)\n  end\n  TOC.SetDefaultSymbol(theTxtSym)\n  o = false\n  for each d in av.GetProject.GetDocs\n    if (d.Is(View)) then\n      if (d.GetGroupGUI.Contains(\"3d\")) then\n        continue\n      end\n      if (d.GetWin.IsOpe
n.Not) then\n        d.GetWin.Move(3000,3000)\n        d.GetWin.Open\n        o = true\n      end\n      d.GetToc.SetSymbol( theTxtSym)\n      if (d.GetWin.isOpen) then\n        d.InvalidateTOC(nil)\n      end\n      if (o) then\n        d.GetWin.Close\n        d.GetWin.Move(-3000,-3000)\n        o = false\n      end\n    end\n  end\n  av.GetProject.SetModified(true)\nend\n\n"
)

(Script.39
    Name:    "TocDefs.Open"
    SourceCode:    "ATD = av.FindDialog(\"TocDefs.Dialog\")\n\nFlats = ATD.FindByName(\"Flats\")\nLens = ATD.FindByName(\"Lens\")\nFonts = ATD.FindByName(\"Fonts\")\nStyles = ATD.FindByName(\"Styles\")\nSizes = ATD.FindByName(\"Sizes\")\n\ntheExt = Extension.Find(\"Table of Contents Defaults Dialog\")\nthePrefs = theExt.GetPreferences\ntheTocDefs = thePrefs.Get(\"TocDefs\")\n\nif (theTocDefs = nil) then\n  CurTocSym = TOC.GetDefaultSymbol\n  curFlat = av.GetProject.GetLegendLineFlatness\n  curLen = av.GetProject.GetTocWidthScale\n  fs = {\"Strong zigzag\",\"Mod
erate zigzag\",\"Flat\"}\n  ls = {\"Normal\",\"Short\",\"Long\",\"Very long\"}\n  if (not ((curFlat <> 0) or (curFlat <> 100) or (curFlat <> 50))) then\n    fs.Insert(\"Custom zigzag\")\n  end\n  if (not ((curLen <> 0.5) or (curLen <> 1) or (curLen <> 3) or (curLen <> 5))) then\n    ls.Insert(\"Custom length\")\n  end\nelse\n  fs = {\"Strong zigzag\",\"Moderate zigzag\",\"Flat\"}\n  ls = {\"Normal\",\"Short\",\"Long\",\"Very long\"}\n  CurTocSym = theTocDefs.Get(2)\n  curFlat = theTocDefs.Get(0)\n  cfidx = fs.FindByValue(curFlat)\n  if (cfidx <> -1)
 then\n    fs.Remove(cfidx)\n  end\n  fs.Insert(curFlat)\n  curLen = theTocDefs.Get(1)\n  clidx = ls.FindByValue(curLen)\n  if (clidx <> -1) then\n    ls.Remove(clidx) \n  end\n  ls.Insert(curLen)\n  if (fs.FindByValue(curFlat) = -1) then\n    fs.Insert(\"Custom zigzag\")\n  end\n  if (ls.FindByValue(curLen) = -1) then\n    ls.Insert(\"Custom length\")\n  end\nend\nFlats.DefineFromList(fs)\nLens.DefineFromList(ls)\n\n\n\ntheFonts = FontManager.The.ReturnFamilies\nFonts.DefineFromList(theFonts)\nCurFont = CurTocSym.GetFont\nCurFam = Cur
Font.GetFamily\nCurStyle = CurFont.GetStyle\nCurSize = CurTocSym.GetSize\n\nSelIdx = theFonts.FindByValue(CurFam)\nif (SelIdx = -1) then\n  SelIdx = 0\n  CurFam = theFonts.Get(0)\nend\n\nFonts.SetSelection(Rect.Make(0@SelIdx,1@1), false)\nFonts.ShowCurrent\n\ntheStyles = FontManager.The.ReturnStyles(CurFam)\nStyles.DefineFromList(theStyles)\n\nStyIdx = theStyles.FindByValue(CurStyle)\nif (StyIdx = -1) then\n  StyIdx = 0\nend\n\nStyles.SetSelection(Rect.Make(0@StyIdx,1@1),false)\nStyles.ShowCurrent\n\ntheSizes = {}\nfor each h in 8.
.24\n  theSizes.Add(h)\nend\nSizes.DefineFromList(theSizes)\n\nSizIdx = theSizes.FindByValue(CurSize)\nif (SizIdx = -1) then\n  SizIdx = 2\nend\nSizes.SetSelection(Rect.Make(0@SizIdx,1@1),false)\nSizes.ShowCurrent\n"
)

(Script.40
    Name:    "TocDefs.Show"
    SourceCode:    "ATD = av.FindDialog(\"TocDefs.Dialog\")\n\nATD.Open\n"
)

(Script.41
    Name:    "TocDefs.UpdateStyle"
    SourceCode:    "ATD = av.FindDialog(\"TocDefs.Dialog\")\n\ntheFontName = ATD.FindByName(\"Fonts\").GetSelection.Get(0)\nStyles = ATD.FindByName(\"Styles\")\n\ntheNewStyles = FontManager.The.ReturnStyles(theFontName)\nStyles.DefineFromList(theNewStyles)\n\nNormIdx = 0\nx = 0\nfor each s in theNewStyles\n  if (s.Contains(\"orm\")) then\n    NormIdx = x\n  end\n  x = x + 1\nend\n\nStyles.SetSelection(Rect.Make(0@NormIdx,1@1),false)"
)

(Script.42
    Name:    "TocDefs.CanUnload"
    SourceCode:    "return (true)"
)

(Script.43
    Name:    "TocDefs.Unload"
    SourceCode:    "Dialog.DetachFromExtension(self)"
)

(Script.44
    Name:    "TocDefs.Install"
    SourceCode:    "if (av.getproject=nil) then return nil end\n\ntocDefs = Self.GetPreferences.Get(\"TocDefs\")\nif (tocDefs <> nil) then\n  theFlat = tocDefs.Get(0)\n  theLen = tocDefs.Get(1)\n  theTxtSym = tocDefs.Get(2).Clone\n  \n  ff = nil\n  if (theFlat = \"Flat\") then\n    ff = 100\n  elseif (theFlat = \"Moderate zigzag\") then\n    ff = 50\n  elseif (theFlat = \"Strong zigzag\") then\n    ff = 0\n  end\n  if (ff <> nil) then\n    av.GetProject.SetLegendLineFlatness(ff)\n  end\n\n  ll = nil\n  if (theLen = \"Normal\") then\n    ll = 1\n  elseif (thel
en = \"Short\") then\n    ll = 0.5\n  elseif (thelen = \"Long\") then\n    ll = 3\n  elseif (thelen = \"Very long\") then\n    ll = 5\n  end\n  if (ll <> nil) then\n    av.GetProject.SetTocWidthScale(ll)\n  end\n  \n  TOC.SetDefaultSymbol(theTxtSym)\n  av.GetProject.SetModified(true)\nend\n"
)